Mac Mania 1/MacMania 1.toast/Educational/Education'More/D-G/Guided Reading.sea/Guided Reading/cards.xml

Text File | 1992-02-08 | 70KB | 2,046 lines

card_4583.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<card>
    <id>4583</id>
    <filler1>0</filler1>
    <cantDelete> <true /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <owner>2330</owner>
    <link rel="stylesheet" type="text/css" href="stylesheet_8522.css" />
    <part>
        <id>1</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>5</left>
            <top>21</top>
            <right>506</right>
            <bottom>41</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <true /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Glossary </name>
        <script></script>
    </part>
    <part>
        <id>2</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>5</left>
            <top>41</top>
            <right>506</right>
            <bottom>314</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <true /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>glossary</name>
        <script>on tabKey--allows limited formatting of the text when typingput "        " into the selectionend tabKey</script>
    </part>
    <part>
        <id>3</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>104</left>
            <top>314</top>
            <right>148</right>
            <bottom>341</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Print</name>
        <script>on mouseUpmark this cdopen report printing with template "Glossary"print marked cardsunmark all cardsclose printingend mouseUp</script>
    </part>
    <part>
        <id>4</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>61</left>
            <top>314</top>
            <right>105</right>
            <bottom>341</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Find</name>
        <script>on mouseUplock screenask "Find what:"if it is not empty then findGloss itend mouseUp</script>
    </part>
    <part>
        <id>5</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>455</left>
            <top>314</top>
            <right>478</right>
            <bottom>341</bottom>
        </rect>
        <style>shadow</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>6122</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>unlock glossary</name>
        <script>on mouseUpset lockText of cd fld "glossary" to not lockText of cd fld "glossary"play "click"if lockText of cd fld "glossary" is true then set icon of me to 6122elseset icon of me to 6121select before char 1 of cd fld "glossary"end ifend mouseUp</script>
    </part>
    <part>
        <id>6</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>33</left>
            <top>314</top>
            <right>62</right>
            <bottom>341</bottom>
        </rect>
        <style>shadow</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>26635</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>help</name>
        <script>on  mouseUpif the icon of me < 0 then exit mouseUglobal bubbleHelpif not bubbleHelp thenanswer "Place the cursor over any object for help with that object. Click the help button again to turn off help."put "true" into bubblehelpelse put false into bubblehelpend mouseUp</script>
    </part>
    <part>
        <id>7</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>477</left>
            <top>314</top>
            <right>506</right>
            <bottom>341</bottom>
        </rect>
        <style>shadow</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1012</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>go back</name>
        <script>on mouseUpvisual zoom inpop cardend mouseUp</script>
    </part>
    <name>glossary</name>
    <script>on closeCardhide msghide btn "unlock glossary"set icon of btn "unlock glossary" to 6122set locktext of cd fld "glossary" to trueset scroll of cd fld "glossary" to 0end closeCardon openCardglobal authoringhide msgif authoring then show btn "unlock glossary"end openCard</script>
</card>


card_5526.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<card>
    <id>5526</id>
    <filler1>0</filler1>
    <bitmap>BMAP_7421.pbm</bitmap>
    <cantDelete> <true /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <owner>6378</owner>
    <link rel="stylesheet" type="text/css" href="stylesheet_8522.css" />
    <part>
        <id>86</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>211</left>
            <top>64</top>
            <right>469</right>
            <bottom>190</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>videoCommand</name>
        <script></script>
    </part>
    <part>
        <id>7</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>62</left>
            <top>269</top>
            <right>119</right>
            <bottom>294</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name><< Scan</name>
        <script>on mouseUpglobal sequencingput theCommands("scan","reverse") into theCmdif sequencing then addIt theCmddo theCmdend mouseUp</script>
    </part>
    <part>
        <id>8</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>402</left>
            <top>269</top>
            <right>457</right>
            <bottom>294</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Scan >></name>
        <script>on mouseUpglobal sequencingput theCommands("scan","forward") into theCmdif sequencing then addIt theCmddo theCmdend mouseUp</script>
    </part>
    <part>
        <id>9</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>356</left>
            <top>314</top>
            <right>439</right>
            <bottom>341</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Play Till...</name>
        <script>on mouseUpglobal sequencingif cd fld "to" is empty thenselect before char 1 of cd fld "to"exit mouseUpelse put theCommands(play,till,cd fld "to") into theCmdif sequencing then addIt theCmddo theCmdend mouseUp</script>
    </part>
    <part>
        <id>10</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>149</left>
            <top>314</top>
            <right>250</right>
            <bottom>341</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Search 'n Play</name>
        <script>on mouseUpvideo search,cd fld "from"video playend mouseUp</script>
    </part>
    <part>
        <id>11</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>249</left>
            <top>314</top>
            <right>357</right>
            <bottom>341</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Frame Search</name>
        <script>on mouseUpglobal sequencingif cd fld "from" is empty thenselect before char 1 of cd fld "from"exit mouseUpelse put theCommands("search",cd fld "from") into theCmdif sequencing then addIt theCmddo theCmdend mouseUp</script>
    </part>
    <part>
        <id>13</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>105</left>
            <top>314</top>
            <right>150</right>
            <bottom>341</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Eject</name>
        <script>on mouseUpglobal sequencingif sequencing then addIt "video eject"video ejectend mouseUp</script>
    </part>
    <part>
        <id>15</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>54</left>
            <top>72</top>
            <right>106</right>
            <bottom>90</bottom>
        </rect>
        <style>checkbox</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Disabled</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Init</name>
        <script>on mouseUpif the textfont of me is "disabled" then exit mouseUpelse set the hilite of me to not the hilite of me--video init -- to initialize your player (usually optional)-- not optional in Hitachi playersend mouseUp</script>
    </part>
    <part>
        <id>22</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>456</left>
            <top>269</top>
            <right>508</right>
            <bottom>294</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Fast >></name>
        <script>on mouseUpglobal sequencingput theCommands("Fast","forward") into theCmdif sequencing then addIt theCmddo theCmdend mouseUp</script>
    </part>
    <part>
        <id>23</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>8</left>
            <top>269</top>
            <right>63</right>
            <bottom>294</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name><< Fast</name>
        <script>on mouseUpglobal sequencingput theCommands("fast","reverse") into theCmdif sequencing then addIt theCmddo theCmdend mouseUp</script>
    </part>
    <part>
        <id>28</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>348</left>
            <top>269</top>
            <right>403</right>
            <bottom>294</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Step >></name>
        <script>on mouseUpglobal sequencingput theCommands("step","forward") into theCmdif sequencing then addIt theCmddo theCmdend mouseUp</script>
    </part>
    <part>
        <id>29</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>118</left>
            <top>269</top>
            <right>171</right>
            <bottom>294</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name><< Step</name>
        <script>on mouseUpglobal sequencingput theCommands("step","reverse") into theCmdif sequencing then addIt theCmddo theCmdend mouseUp</script>
    </part>
    <part>
        <id>30</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>292</left>
            <top>269</top>
            <right>349</right>
            <bottom>294</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>PLAY >></name>
        <script>on mouseUpglobal speed, sequencingif speed is "Normal" then put theCommands("play","forward") into theCmdelse put theCommands(speed,"forward") into theCmdif sequencing then addIt theCmddo theCmdend mouseUp</script>
    </part>
    <part>
        <id>31</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>170</left>
            <top>269</top>
            <right>227</right>
            <bottom>294</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name><< PLAY</name>
        <script>on mouseUpglobal speed, sequencingif speed is "Normal" then put theCommands("play","reverse") into theCmdelse put theCommands("play",speed,"reverse") into theCmdif sequencing then addIt theCmddo theCmdend mouseUp</script>
    </part>
    <part>
        <id>48</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>54</left>
            <top>93</top>
            <right>143</right>
            <bottom>114</bottom>
        </rect>
        <style>checkbox</style>
        <showName> <true /> </showName>
        <highlight> <true /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Picture On</name>
        <script>on mouseUpglobal sequencingset the hilite of me to not the hilite of meif the hilite of me thenput theCommands(video, picture, on) into theCmdelse put theCommands(video, picture, off) into theCmdif sequencing then addIt theCmddo theCmdend mouseUp</script>
    </part>
    <part>
        <id>51</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>54</left>
            <top>114</top>
            <right>137</right>
            <bottom>135</bottom>
        </rect>
        <style>checkbox</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Frame On</name>
        <script>on mouseUpglobal sequencingset the hilite of me to not the hilite of meif the hilite of me thenput theCommands(video,frame,on) into theCmdelse put theCommands (video, frame, off) into theCmdif sequencing then addIt theCmddo theCmdend mouseUp</script>
    </part>
    <part>
        <id>52</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>226</left>
            <top>269</top>
            <right>293</right>
            <bottom>294</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>|| STOP ||</name>
        <script>on mouseUpglobal sequencingput theCommands("stop") into theCmdif sequencing then addIt theCmddo theCmdend mouseUp</script>
    </part>
    <part>
        <id>59</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>57</left>
            <top>185</top>
            <right>130</right>
            <bottom>203</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>right</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>From</name>
        <script>--on closeField--send mouseUp to cd btn "frame search"--end closeFieldon tabKeysend tabKey to hypercardend tabkey</script>
    </part>
    <part>
        <id>60</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>58</left>
            <top>208</top>
            <right>131</right>
            <bottom>226</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>right</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>To</name>
        <script></script>
    </part>
    <part>
        <id>62</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>182</left>
            <top>240</top>
            <right>374</right>
            <bottom>261</bottom>
        </rect>
        <style>checkbox</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Create a Sequence for me</name>
        <script>on mouseUpglobal sequencing, videoSequenceif the hilite of me then put "true" into sequencingelse put "false" into sequencingend mouseUp</script>
    </part>
    <part>
        <id>67</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>181</left>
            <top>48</top>
            <right>504</right>
            <bottom>217</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>videosequence</name>
        <script></script>
    </part>
    <part>
        <id>68</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>344</left>
            <top>216</top>
            <right>505</right>
            <bottom>238</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Clear the Sequence</name>
        <script>on mouseUpsend tabKey to cd fld "videosequence"put space into the selectionend mouseUp</script>
    </part>
    <part>
        <id>69</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>181</left>
            <top>216</top>
            <right>345</right>
            <bottom>238</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Test the Sequence</name>
        <script>∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞ Script info for card button "Test the Sequence". ∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞HANDLERS:  mouseUpFUNCTIONS:GLOBALS:Size: 478 chars.      6:13 PM, Thursday, April 19, 1990∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞ Parts © Copyright 1990 David Herren ∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞on mouseUpget the selectionif it is empty thenrepeat with count = 2 to the number of lines of cd fld "videosequence" - 1select line count of cd fld "videosequence"do the selectionput "Click the mouse to execute the next command."wait until the mouseClickend repeatclick at 0,0put emptyhide msgelserepeat with count = 1 to the number of lines of itdo line count of itend repeatend ifend mouseUp</script>
    </part>
    <part>
        <id>70</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>58</left>
            <top>231</top>
            <right>146</right>
            <bottom>251</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>speed</name>
        <script>on mouseDownglobal speedput "Slowest,Slower,Slow,Normal,Faster" into myMenuget PopList(myMenu,the left of me,the top of me +1,currentSel(me,myMenu))if it is "0" then exit mouseDownput item it of myMenu into meput item it of myMenu into speedend mouseDown</script>
    </part>
    <part>
        <id>71</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>21</left>
            <top>46</top>
            <right>165</right>
            <bottom>66</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>player</name>
        <script>on mouseDownglobal playerput "PioneerLDV6000,PioneerLVP4200,PanasonicTQ2040F,HitachiVideo,Sony1500" ¬into myMenuget PopList(myMenu,the left of me,the top of me +1,currentSel(me,myMenu))if it is "0" then exit mouseDownput item it of myMenu into meput item it of myMenu into playerif item it of myMenu is "HitachiVideo" then hot cd,"Init"else gray cd, "init"end mouseDown</script>
    </part>
    <part>
        <id>73</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>147</left>
            <top>46</top>
            <right>165</right>
            <bottom>65</bottom>
        </rect>
        <style>shadow</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>3584</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseDownsend mousedown to cd fld "player"end mouseDown</script>
    </part>
    <part>
        <id>74</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>128</left>
            <top>231</top>
            <right>146</right>
            <bottom>250</bottom>
        </rect>
        <style>shadow</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>3584</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseDownsend mousedown to cd fld "speed"end mouseDown</script>
    </part>
    <part>
        <id>76</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>181</left>
            <top>30</top>
            <right>504</right>
            <bottom>49</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <true /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>The Sequence</name>
        <script></script>
    </part>
    <part>
        <id>80</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>375</left>
            <top>240</top>
            <right>505</right>
            <bottom>262</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Make a button</name>
        <script>∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞ Script info for card button "Make a button". ∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞HANDLERS:  mouseUpFUNCTIONS:GLOBALS:Size: 836 chars.      3:33 PM, Tuesday, April 23, 1991∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞ © 1991 David Herren ∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞on mouseUpset cursor to watchlock screenget cd fld "videoSequence"put "on mouseup" & return & "global player" & return¬& "put" && cd fld "player" && "into player" & return before first line of itput return & "end MouseUp" after last line of itselect medomenu "copy button"domenu "paste button"set name of cd btn the number of cd btns to "My Video"set script of cd btn "My video" to itselect cd btn "my video"doMenu "cut button"choose browse toolanswer "Go where you want and paste the new button. " &  ¬"If you have not copied the video resources, do so now." with "Don't copy" or "Copy"if it is "Copy" thenanswer file "Please select the target stack." of type "STAK"if it is empty then exit mouseupelse put it into toFilecopyVideoStuff toFileend ifend mouseUp</script>
    </part>
    <part>
        <id>109</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>58</left>
            <top>148</top>
            <right>146</right>
            <bottom>168</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>sound</name>
        <script>on mouseDownglobal sequencingput "Left,Right,Stereo,Mute" into myMenuget PopList(myMenu,the left of me,the top of me +1,currentSel(me,myMenu))if it is "0" then exit mouseDownput item it of myMenu into meif it is 1 then put theCommands(video,sound,1) into theCmdelse if it is 2 then put theCommands(video,sound,2) into theCmdelse if it is 3 then put theCommands(video,sound,on) into theCmdelse if it is 4 then put theCommands(video,sound,off) into theCmdif sequencing then addIt theCmddo theCmdend mouseDown</script>
    </part>
    <part>
        <id>110</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>127</left>
            <top>148</top>
            <right>145</right>
            <bottom>167</bottom>
        </rect>
        <style>shadow</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>3584</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseDownsend mousedown to cd fld "sound"end mouseDown</script>
    </part>
    <content>
        <layer>background</layer>
        <id>5</id>
        <text>VideoCard © 1990 David Herren; Video XCMDs © Apple Computer, Inc.</text>
    </content>
    <content>
        <layer>card</layer>
        <id>70</id>
        <text>Normal</text>
    </content>
    <content>
        <layer>card</layer>
        <id>71</id>
        <text>PioneerLVP4200</text>
    </content>
    <content>
        <layer>card</layer>
        <id>86</id>
        <text>on video  global player  put the params into command  put player into word 1 of command  if the optionKey is "down" then put command    --lets you see what's being sent out  do commandend video</text>
    </content>
    <content>
        <layer>card</layer>
        <id>109</id>
        <text>Stereo</text>
    </content>
    <name>video</name>
    <script>∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞ Script info for this card. ∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞HANDLERS:  video,addIt,tabKey,gray,hot,openCardFUNCTIONS: theCommands,currentSelGLOBALS:   player,speed,sequencingSize: 2118 chars.      9:49 AM, Friday, September 21, 1990∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞ Parts © Copyright 1990 David Herren ∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞on videoglobal playerput the params into commandput player into word 1 of commandif the optionKey is "down" then put command    --lets you see what's being sent outdo commandend videofunction theCommandsglobal speedput "video" && param(1) into stringrepeat with count = 2 to the paramCountput "," & param(count) after stringend repeat--if string contains "play" then put speed & ", " before item 2 of stringreturn stringend theCommandson addIt whatput what & return before last line of cd fld "videoSequence"if what contains "search" then put "wait 2 secs" & return¬before last line of cd fld "videoSequence"end addIton tabKeyif the selection is in cd fld "to" or the selection is empty then--if the number of lines of cd fld "videoSequence" >=3 thenselect line 2 to the number of lines of cd fld "videoSequence"¬- 1 of cd fld "videoSequence"--else select before char 1 of cd fld "videoSequence"else pass tabKeyend tabKeyfunction currentSel theSelection,theMenurepeat with count = 1 to the number of items of theMenuif theSelection is item count of theMenuthen return countend repeatend currentSel--gray & hot change font of cd/bg btns passed--w/ at least 2 parameters: [cd, bg],short name of btnon grayrepeat with count = 2 to the paramCountdo "set textFont of" && param(1) && "btn" && quote & param(count)¬& quote && "to" && quote & "disabled" & quoteend repeatend grayon hotrepeat with count = 2 to the paramCountdo "set textFont of" && param(1) && "btn" && quote & param(count)¬& quote && "to" && quote & "chicago" & quoteend repeatend hoton openCardglobal speed, player, sequencingput cd fld "speed" into speedput cd fld "player" into playerput empty into cd fld "from"put empty into cd fld "to"put the hilite of cd btn "create a sequence for me" into sequencingput "Stereo" into cd fld "sound"set hilite of cd btn "frame On" to falseset hilite of cd btn "Picture On" to trueend openCard</script>
</card>


card_6088.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<card>
    <id>6088</id>
    <filler1>0</filler1>
    <bitmap>BMAP_9461.pbm</bitmap>
    <cantDelete> <true /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <owner>6869</owner>
    <link rel="stylesheet" type="text/css" href="stylesheet_8522.css" />
    <part>
        <id>37</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>286</left>
            <top>60</top>
            <right>484</right>
            <bottom>262</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>soundscripts</name>
        <script></script>
    </part>
    <part>
        <id>16</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>285</left>
            <top>47</top>
            <right>487</right>
            <bottom>263</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>sounds present</name>
        <script>on mouseUpglobal thesoundif the value of the clickline is empty then exit to hypercardelse put the value of the clickline into theSoundupdateSndsend mouseUpon mouseDownif the value of the clickline is empty then exit to hypercardelse select the clicklineend mouseDown</script>
    </part>
    <part>
        <id>7</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>110</left>
            <top>263</top>
            <right>206</right>
            <bottom>288</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>>> Play >></name>
        <script>on mouseUpput line 1 of cd fld "theSound" into soundNamefplay soundNameend mouseUp</script>
    </part>
    <part>
        <id>8</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>15</left>
            <top>263</top>
            <right>111</right>
            <bottom>288</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>• Record •</name>
        <script>∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞ Script info for card button "• Record •". ∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞HANDLERS:  mouseUpFUNCTIONS:GLOBALS:   thesound,port,sampleSize: 1472 chars.      8:33 PM, Wednesday, November 20, 1991∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞ © 1991 David Herren ∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞-- parts Copyright © 1989  Farallon Computing, Incon mouseUpglobal thesound, port, sampleFplay stopif theSound is empty then put "new sound" into theSound--check if theSound is usedif thesound is in cd fld "sounds present" and thesound is in cd fld "theSound" thenanswer "Replace" && thesound && "?" with "Cancel" or "Yes" or "New Sound"if it is "cancel" then exit mouseUpelse if it is "Yes" then doErase theSoundask "Name the new sound..."if it is not empty then put it into theSoundelse exit mouseUpend ifset cursor to watchlock screenput theSound into cd fld "theSound"gray cd,"• Record •", ">> Play >>","|| Stop ||","Rename","Erase"hot cd,"begin recording","cancel"unlock screenset cursor to handput Record(theSound,sample,port,0,false,"Ready",the rect of cd fld "Gauge") into lengthOfSoundset cursor to watchlock screenhot cd,"• Record •", ">> Play >>","|| Stop ||","Rename","Erase"gray cd,"begin recording","cancel"if lengthOfSound = -1 thenanswer "There was a MacRecorder error." & return &¬"Please check the connection and try again. " &¬"I will try to correct the error internally, " &¬"so please try at least two more times."if port is "1" then put "2" into portelse put "1" into portexit to hypercardelse if lengthOfSound <= 0 thenput empty into cd fld "theSound"else updateSndsunlock screenend mouseUp</script>
    </part>
    <part>
        <id>9</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>395</left>
            <top>263</top>
            <right>487</right>
            <bottom>288</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Erase</name>
        <script>-- parts copyright © 1989 Farallon Computingon mouseUpglobal theSoundFplay stopput line 1 of cd fld "theSound" into soundNameif soundName is empty ¬or soundname is "click" thenbeepexit mouseUpend ifif the optionKey is down thenDoErase soundNameelseAnswer "Erase the sound “" & soundName & "” ?" with "Cancel" or "OK"if it is "OK" then DoErase soundNameend ifend mouseUp</script>
    </part>
    <part>
        <id>10</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>9</left>
            <top>48</top>
            <right>212</right>
            <bottom>100</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>theSound</name>
        <script></script>
    </part>
    <part>
        <id>15</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>240</left>
            <top>29</top>
            <right>256</right>
            <bottom>259</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Gauge</name>
        <script></script>
    </part>
    <part>
        <id>11</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>300</left>
            <top>263</top>
            <right>396</right>
            <bottom>288</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Rename</name>
        <script>on mouseUpglobal theSoundFplay stopput theSound into OldNameif OldName is empty or OldName is "Click" then exit mouseUpAsk "Change sound name to:" with OldNameif it is empty or it is "Cancel" then exit mouseUpput it into NewNamerepeat while NewName is in cd fld "sounds present"Ask "That name already exists. Try another." with OldNameif it is empty then exit mouseUpput it into NewNameend repeatif NewName is empty then exit mouseUpRenameSnd OldName, NewNameput newName into theSoundupdateSndsend mouseUp</script>
    </part>
    <part>
        <id>12</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>205</left>
            <top>263</top>
            <right>301</right>
            <bottom>288</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>|| Stop ||</name>
        <script>on mouseUpFplay stopend mouseUp</script>
    </part>
    <part>
        <id>21</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>9</left>
            <top>29</top>
            <right>212</right>
            <bottom>48</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <true /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Current Sound</name>
        <script></script>
    </part>
    <part>
        <id>19</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>285</left>
            <top>29</top>
            <right>487</right>
            <bottom>48</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <true /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Available Sounds</name>
        <script></script>
    </part>
    <part>
        <id>17</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>9</left>
            <top>183</top>
            <right>211</right>
            <bottom>213</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Disabled</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Begin Recording</name>
        <script></script>
    </part>
    <part>
        <id>18</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>9</left>
            <top>223</top>
            <right>211</right>
            <bottom>250</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Disabled</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Cancel</name>
        <script></script>
    </part>
    <part>
        <id>31</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>477</left>
            <top>314</top>
            <right>506</right>
            <bottom>341</bottom>
        </rect>
        <style>shadow</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1012</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>return</name>
        <script>on mouseUpvisual zoom inpop cardend mouseUp</script>
    </part>
    <part>
        <id>33</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>133</left>
            <top>111</top>
            <right>212</right>
            <bottom>131</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>port</name>
        <script>∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞ Script info for card field "port". ∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞HANDLERS:  mouseDownFUNCTIONS:GLOBALS:   portSize: 446 chars.      3:53 PM, Thursday, April 4, 1991∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞ © 1990 David Herren ∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞on mouseDownglobal portput "Modem,Printer" ¬into myMenuget PopList(myMenu,the left of me,the top of me +1,currentSel(me,mymenu))if it is "0" then exit mouseDownput item it of myMenu into meput it into portif port is "2" thenanswer "Appletalk must be deactivated in the Chooser to use the MacRecorder on the Printer port." with "Cancel" or "Chooser"if it is "Chooser" then domenu "Chooser"end ifend mouseDown</script>
    </part>
    <part>
        <id>34</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>133</left>
            <top>144</top>
            <right>211</right>
            <bottom>164</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>sample</name>
        <script>on mouseDownglobal sampleput "22KHz,11KHz,7KHz,5KHz,4 to 1,8 to 1,3 to 1,6 to 1" ¬into myMenuget PopList(myMenu,the left of me,the top of me +1,currentSel(me,mymenu))if it is "0" then exit mouseDownput item it of myMenu into meput it into sampleend mouseDown</script>
    </part>
    <part>
        <id>35</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>192</left>
            <top>111</top>
            <right>210</right>
            <bottom>130</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>3584</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseDownsend mousedown to cd fld "port"end mouseDown</script>
    </part>
    <part>
        <id>36</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>191</left>
            <top>144</top>
            <right>209</right>
            <bottom>163</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>3584</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseDownsend mousedown to cd fld "sample"end mouseDown</script>
    </part>
    <content>
        <layer>card</layer>
        <id>16</id>
        <text>Click</text>
    </content>
    <content>
        <layer>background</layer>
        <id>5</id>
        <text>SoundCard © 1990 D.Herren, Hypersound XCMDs © ’89 Farallon Computing</text>
    </content>
    <content>
        <layer>card</layer>
        <id>33</id>
        <text>Modem</text>
    </content>
    <content>
        <layer>card</layer>
        <id>37</id>
        <text>--called by record XFCN to record soundsfunction ready availTicks  set numberFormat to "0.00"  put "You have" && (availticks / 60) && "seconds available--click “Begin Recording” or “Cancel”"  put -1 into CallBack  repeat while CallBack < 0    wait until the mouseClick    if the clickLoc is within the rect of cd btn "Begin Recording" then      put 1 into CallBack      set hilite of cd btn "begin recording" to true      wait 5      set hilite of cd btn "begin recording" to false    else if the clickLoc is within the rect of cd btn "Cancel" then      set hilite of cd btn "cancel" to true      wait 5      set hilite of cd btn "cancel" to false      put 0 into CallBack      put empty into cd fld "theSound"    end if  end repeat  put empty  hide msg  return callBackend ready</text>
    </content>
    <content>
        <layer>card</layer>
        <id>34</id>
        <text>22KHz</text>
    </content>
    <content>
        <layer>card</layer>
        <id>10</id>
        <text>sndCd8091</text>
    </content>
    <name>Sound</name>
    <script>∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞ Script info for this card. ∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞HANDLERS:  openCard,updateSnds,DoEraseFUNCTIONS: theSampleNum,theSampleNameGLOBALS:   sample,port,theSoundSize: 1324 chars.      1:36 PM, Monday, May 14, 1990∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞ Parts © Copyright 1990 David Herren ∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞on openCardglobal sample, port, theSoundput theSound into line 1 of cd fld "theSound"if cd fld "port" is "Modem" then put 1 into portelse put 2 into portput theSampleNum(cd fld "sample") into sampleput sndList() into cd fld "sounds present"end openCardon updateSndsglobal thesoundset numberformat to "0.00"put sndList() into cd fld "sounds present"put sndInfo(theSound) into soundInfoput thesound & return¬& item 3 of soundInfo/60 && "seconds" & return¬& item 1 of soundInfo/1000 & "K" into cd fld "theSound"put theSampleName(item 2 of soundInfo) into cd fld "sample"end upDateSndson DoErase soundNameglobal theSoundEraseSnd soundNameupdateSndsput empty into cd fld "theSound"if soundName = theSound then put empty into theSoundend DoErasefunction theSampleNum mySampleput "22KHz,11KHz,7KHz,5KHz,4 to 1,8 to 1,3 to 1,6 to 1" into theSamplesrepeat with count = 1 to the number of items of theSamplesif mysample is item count of theSamples then return countend repeatend theSampleNumfunction theSampleName mySampleput "22KHz,11KHz,7KHz,5KHz,4 to 1,8 to 1,3 to 1,6 to 1" into samplesif mysample > 0 thenreturn item mySample of sampleselseput empty into cd fld "thesound"return cd fld "sample"end ifend theSampleName--called by record XFCN to record soundsfunction ready availTicksset numberFormat to "0.00"answer "You have" && (availticks / 60) && "seconds available for this sound—click “Begin Recording” or “Cancel” after dismissing this dialog. To stop recording, move the mouse or click."put -1 into CallBackrepeat while CallBack < 0wait until the mouseClickif the clickLoc is within the rect of cd btn "Begin Recording" thenput 1 into CallBackset hilite of cd btn "begin recording" to truewait 5set hilite of cd btn "begin recording" to falseelse if the clickLoc is within the rect of cd btn "Cancel" thenset hilite of cd btn "cancel" to truewait 5set hilite of cd btn "cancel" to falseput 0 into CallBackput empty into cd fld "theSound"end ifend repeatreturn callBackend ready</script>
</card>


card_8091.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<card>
    <id>8091</id>
    <filler1>0</filler1>
    <bitmap>BMAP_8286.pbm</bitmap>
    <cantDelete> <false /> </cantDelete>
    <showPict> <false /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <owner>2125</owner>
    <link rel="stylesheet" type="text/css" href="stylesheet_8522.css" />
    <content>
        <layer>background</layer>
        <id>8</id>
        <text>Sample Lesson</text>
    </content>
    <content>
        <layer>background</layer>
        <id>9</id>
        <text>Sentence 1</text>
    </content>
    <name></name>
    <script></script>
</card>


card_3349.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<card>
    <id>3349</id>
    <filler1>0</filler1>
    <cantDelete> <true /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <owner>2705</owner>
    <link rel="stylesheet" type="text/css" href="stylesheet_8522.css" />
    <content>
        <layer>background</layer>
        <id>16</id>
        <text>Card 1</text>
    </content>
    <content>
        <layer>background</layer>
        <id>17</id>
        <text>untitled</text>
    </content>
    <content>
        <layer>background</layer>
        <id>30</id>
        <text></text>
    </content>
    <name>First Text Card</name>
    <script></script>
</card>


card_4038.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<card>
    <id>4038</id>
    <filler1>0</filler1>
    <cantDelete> <true /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <owner>3833</owner>
    <link rel="stylesheet" type="text/css" href="stylesheet_8522.css" />
    <part>
        <id>1</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>0</left>
            <top>0</top>
            <right>511</right>
            <bottom>38</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>abbreviations</name>
        <script>on closefieldglobal abbreviationsput me into abbreviationsend closefield</script>
    </part>
    <part>
        <id>3</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>184</left>
            <top>287</top>
            <right>318</right>
            <bottom>307</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>password</name>
        <script></script>
    </part>
    <part>
        <id>6</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>0</left>
            <top>37</top>
            <right>511</right>
            <bottom>75</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>punctuations</name>
        <script>on closefieldglobal punctuationsput me into punctuationsend closefield</script>
    </part>
    <content>
        <layer>card</layer>
        <id>1</id>
        <text>Dr.  Mr.  Mrs.  Ms.  Prof.  St.  Av.  Ave. Blvd. Sr. Sra. Mme. Mlle. D. Da. Srta. Sig. Signa. etc.</text>
    </content>
    <content>
        <layer>card</layer>
        <id>3</id>
        <text>66340033</text>
    </content>
    <content>
        <layer>card</layer>
        <id>6</id>
        <text>?¿¡!.,…—-–;():</text>
    </content>
    <content>
        <layer>background</layer>
        <id>1</id>
        <text>untitled</text>
    </content>
    <name>Title</name>
    <script></script>
</card>